home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tppop18c.arc
/
REMOVE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-28
|
806b
|
25 lines
{$A+,B-,D+,E-,F-,I+,L+,N-,O-,R-,S-,V-}
{$M 1024,5120,5120}
Program RemoveTSR;
Uses Unhook;
Var
Signature : Byte;
Result : Integer;
Begin
Val(ParamStr(1),Signature,Result); { convert parameter to number }
WriteLn('Attempting to remove program from program memory.');
If Installed(Signature) { is it installed? }
Then Begin { yes. }
If OkToRemove(Signature) { can it be unloaded? }
Then Begin
RemoveProgram(Signature); { yes. remove it. }
WriteLn('Program successfully removed.');
End
Else WriteLn('Unable to remove program from memory.'); { unsafe }
End
Else WriteLn('Program is not installed.'); { program not found in memory. }
End.